10 REM * STAR BATCH CREATOR   *
11 REM * BY KEN ROBINSON 5/98 *
12 REM * 1998 J&F PUBLISHING  *
13 :
14 POKE55,0:POKE56,160:CLR
15 DV=PEEK(186):IFDV<8THENDV=8
16 :
17 C1$="\":REM * DELAY CHARACTER *
18 C2$="_":REM * INPUT CHARACTER *
19 :
20 DEFFNH(Q)=INT(Q/256)
21 DEFFNL(Q)=Q-256*FNH(Q)
22 DIML(100)
30 POKE53272,23:POKE648,4:POKE56576,199:GOSUB5000
31 PRINT"  [155][197][206][212][197][210] [201][206][211][212][193][204][204][193][212][201][207][206] [193][196][196][210][197][211][211]"
32 PRINT"  [155][193]CCEPTS DEC OR $HEX"
33 PRINT"  LIKE 49152 OR $C000":POKE53265,27
34 PRINT"  [201]NSTALLATION [193]DDRESS: ? ";
35 GOSUB800:IFEF=2THEN39000
36 IFEF=1THENPRINT"[150][201]LLEGAL NUMBER!":GOTO34
37 IFN<2352ORN>52736OR(N>40448ANDN<49152)THENPRINT"[150][195]AN'T FIT IT THERE!":GOTO34
38 SA=N:S2=SA+256:B1=40960:IFSA>40704THENB1=53248
39 B2=49408+(B1-S2):IFB2>53248THENB2=53248
40 DF=49152-SA
99 REM   STOP
200 GOSUB5000:GOSUB5005:POKE53265,27
230 PRINT
232 PRINT"[159] [201]NSTALL. [193]DDR. =";SA;:N=SA:GOSUB850:PRINTW$:PRINT
235 S3=49408:PRINT"[159]"B2-S3;"BYTES FREE":PRINT:LN=1
238 LN$="[147][144]POKE53280,0:POKE53281,0"
239 L(1)=S3:POKE198,0:PRINT"";LN;"[157]:";:POKE212,1:PRINTLN$;:GOTO265
240 LN$="":L(LN)=S3
245 POKE198,0:PRINT"";LN;"[157]:";:GOTO265
250 TT=TI+20
255 IFTT>TITHEN270
260 TF=NOT(TF):IFTF=0THENPOKE212,0:PRINT" [157]";:GOTO250
265 POKE212,0:PRINT" [146][157]";:GOTO250
270 GETA$:IFA$=""THEN255
275 IFA$=CHR$(148)THENA$=CHR$(142)
280 IFLN$=""THENIFA$=CHR$(20)THEN255
290 IFA$=CHR$(13)ORA$=CHR$(141)ORA$=""THEN319
295 IFA$="
"THEN355
300 IFA$=""THEN349
302 IFA$=""THENPOKE212,0:PRINT" ":GOTO39000
303 IFA$=""THEN352
304 IFA$=""THEN346
305 IFLEN(LN$)=>75THENIFA$<>CHR$(20)THEN255
308 POKE212,1:PRINTA$;
310 IFA$<>CHR$(20)THENLN$=LN$+A$:GOTO265
315 LN$=LEFT$(LN$,LEN(LN$)-1):GOTO265
319 IFLN=>100ORLN$=""THEN255
320 POKE212,0:IFA$=CHR$(13)THENPRINT"M[146]"
321 IFA$=CHR$(141)THENPRINT"[205][146]"
322 IFA$=""THENPRINT"L[146]":A$=""
323 LN$=LN$+A$
325 L=LEN(LN$):IFL=0THEN345
326 IFB2-(S3+L+1)=<0THENPRINT"[150][207]VERFLOW!!! [210]ETYPE LINE OR QUIT.":GOTO240
330 FORX=0TOLEN(LN$)-1
335 POKES3,ASC(MID$(LN$,X+1,1)+CHR$(0)):S3=S3+1
340 NEXTX:POKES3,0
345 LN=LN+1:GOTO240
346 IFLN$<>""ORLN<2THEN255
347 POKE212,0:PRINT" "
348 LN=LN-1:S3=L(LN):POKES3,0:GOTO240
349 IFLN$<>""THEN255
350 POKE212,0:PRINT" "
351 PRINT:PRINT"[159]"B2-S3"BYTES FREE":GOTO240
352 IFLN$=""THEN255
353 POKE212,0:FORJ=1TOLEN(LN$):PRINT" [157][157]";:NEXT:LN$="":GOTO260
355 IFS3=49408ORLN$<>""THEN255
357 POKE212,0:PRINT" "
358 PRINT"[155][195]ONFIRM - ARE YOU FINISHED? (Y/N)";
359 POKE198,0
360 GETA$:IFA$<>"Y"ANDA$<>"N"THEN360
365 PRINTA$:IFA$="N"THENPRINT:GOTO240
370 GOSUB5000:PRINT:PRINTTAB(8);"[155][208][210][207][195][197][211][211][201][206][199][160][194][193][212][195][200][160][198][201][204][197]..."
375 PRINTTAB(8)"* * * * * * * * * * * *"
380 PRINTTAB(8)"[145]";:POKE53265,27
385 AD=SA:GOSUB1000
390 GOSUB5000:POKE53265,27
392 PRINT"[155][197]NTER [211]AVE [198]ILENAME: ? ";:NF=0:L=15:W$="":GOSUB830
395 IFW$=""THEN38000
396 FL$=W$
397 PRINT"[155][197]NTER [211]AVE [196]EVICE # ? ";
398 W$=MID$(STR$(DV),2):PRINT"[159]";W$;:L=2:GOSUB804
399 IFEF=2THEN38000
400 IF(EF)OR(N<8ORN>29)THEN397
402 OPEN2,N,2:CLOSE2:IFSTTHEN397
404 DV=N
410 CLOSE15:OPEN15,DV,15:IFSTTHENPRINT"[150][196]EVICE NOT PRESENT!":GOTO492
415 CLOSE2:OPEN2,DV,2,"0:"+FL$+",P,W"
420 INPUT#15,ER,ER$,ET,ES:IFER=0THEN530
422 CLOSE2:IFER<>63THEN490
424 PRINT"[150][198]ILE EXISTS! [196]ELETE IT? (Y/N) ";
425 POKE198,0
426 GETA$:IFA$<>"Y"ANDA$<>"N"THEN426
428 PRINTA$:IFA$="N"THEN400
430 PRINT#15,"S0:"+FL$:GOTO415
490 PRINT"[150][196]ISK ERROR: ";ER$
492 CLOSE2:CLOSE15:PRINT"[158][208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE."
494 POKE198,0:WAIT198,1:GETA$:GOTO390
500 REM * SAVE BATCH FILE *
530 RESTORE
535 S1=SA
540 EA=SA+(S3+1-49152)
545 EE=EA-S1+2093:EH=FNH(EE):EL=FNL(EE)
550 SY=SA
565 PRINT"[211]AVING [194]ATCH [198]ILE...."
585 GOSUB625
595 FORX=49152TOS3+1
600 A=PEEK(X)
605 PRINT#2,CHR$(A);
615 NEXT:CLOSE2:CLOSE15:GOTO38000
620 REM
625 READA:IFA<0THENONABS(A)GOSUB645,650,655,660,665,670
630 PRINT#2,CHR$(A);
635 IFE=0THEN625
640 RETURN
645 A=EL:RETURN
650 A=EH:RETURN
655 A=FNL(EA+1):RETURN
660 A=FNH(EA+1):RETURN
665 A=FNL(SY):RETURN
670 A=FNH(SY):E=1:RETURN
675 REM
680 IFLEFT$(A$,1)="$"ANDLEN(A$)=5THENA$=RIGHT$(A$,4):GOSUB690:RETURN
685 A=VAL(A$):RETURN
690 A=0:P=4096:FORX=1TO4:L$=MID$(A$,X,1):GOSUB710:A=A+P*N
695 P=P/16
700 NEXTX:RETURN
705 REM
710 N=0
715 N=-15*(L$="F")-14*(L$="E")-13*(L$="D")-12*(L$="C")-11*(L$="B")-10*(L$="A")
720 IFN=0THENN=VAL(L$)
725 RETURN
730 REM
735 REM
740 DATA1,8
745 REM
750 DATA12,8,10,0,158,32,50,48,54,50,0,0,0
755 REM
760 DATA169,44,133,95,169,8,133,96
765 DATA169,-1,133,90,169,-2,133,91
770 DATA169,-3,133,88,169,-4,133,89
775 DATA32,191,163,76,-5,-6
780 INPUT#15,ER,ER$,ET,ES:IFER=0THENRETURN
785 PRINT" DISK ERROR [146]"ER;ER$;ET;ES
790 CLOSE1:CLOSE2:CLOSE15
795 POKE198,0:WAIT198,1:RETURN
800 L=4:W$=""
804 EF=0:N=0:NF=-1:GOSUB830
806 IFW$=""THENEF=2:RETURN
808 IFASC(W$)=36THEN814
810 N=VAL(W$):IF N=0 AND W$<>"0"THENEF=1
811 IF N<0ORN=>16^LTHENEF=1
812 RETURN
814 IFLEN(W$)<>L+1THENEF=1:RETURN
816 FORXX=0TOL-1
818 YY=ASC(MID$(W$,L+1-XX,1))AND127
820 YY=YY-48:IFYY>9THENYY=YY-7
821 IFYY<0ORYY>15THENEF=1
822 N=N+YY*(16^XX):NEXT
823 IF N<0ORN=>16^LTHENEF=1
824 RETURN
830 POKE198,0
832 TT=TI+20
834 GETA$:IFA$<>""THEN840
836 IFTT>TITHEN834
837 TF=NOT(TF):IFTF=0THENPRINT" [157]";:GOTO832
838 PRINT" [146][157]";:GOTO832
840 IFA$=CHR$(13)THENPRINT" ":RETURN
842 IFA$=CHR$(20)ANDW$<>""THENPRINT" [157][157]";:W$=LEFT$(W$,LEN(W$)-1):GOTO838
843 IFLEN(W$)=L+1THEN834
844 IFA$="0"OR(VAL(A$)>0ANDVAL(A$)<10)THEN849
845 IF(A$=>"A"ANDA$<="F")OR(A$=>"[193]"ANDA$<="[198]")ORA$="$"THEN849
847 IFNF=0THENIF(ASC(A$)AND96)THENIFA$<>CHR$(34)THEN849
848 GOTO834
849 W$=W$+A$:PRINT"[159]";A$;:GOTO838
850 W$="":FORXX=0TO3
852 YY=N-INT(N/16)*16:IFYY>9THENYY=YY+7
854 W$=CHR$(YY+48)+W$:N=INT(N/16)
856 NEXT:W$="($"+W$+")":RETURN
980 REM * RELOCATING TEST *
990 DEFFNH(Q)=INT(Q/256)
991 DEFFNL(Q)=Q-256*FNH(Q)
999 AD=50000:DF=49152-AD:SA=AD:C1$="\":C2$="_":GOSUB1000:END
1000 B$="  ":A=32
1005 GOSUB4000
1010 A=204
1015 GOSUB4000
1020 A=255
1025 GOSUB4000
1030 A=169
1035 GOSUB4000
1040 A=FNL(SA+256)
1045 GOSUB4000
1050 A=141
1055 GOSUB4000
1060 A=203:A0=AD
1065 GOSUB4000
1070 A=192
1075 GOSUB4000
1080 A=169
1085 GOSUB4000
1090 A=FNH(SA+256)
1095 GOSUB4000
1100 A=141
1105 GOSUB4000
1110 A=204:A1=AD
1115 GOSUB4000
1120 A=192
1125 GOSUB4000
1130 A=169
1135 GOSUB4000
1140 A=147
1145 GOSUB4000
1150 A=32
1155 GOSUB4000
1160 A=210
1165 GOSUB4000
1170 A=255
1175 GOSUB4000
1180 A=169
1185 GOSUB4000
1190 A=0
1195 GOSUB4000
1200 PRINTB$;:A=141
1205 GOSUB4000
1210 A=217:A2=AD
1215 GOSUB4000
1220 A=192
1225 GOSUB4000
1230 A=141
1235 GOSUB4000
1240 A=218:A3=AD
1245 GOSUB4000
1250 A=192
1255 GOSUB4000
1260 A=141
1265 GOSUB4000
1270 A=219:A4=AD
1275 GOSUB4000
1280 A=192
1285 GOSUB4000
1290 A=120
1295 GOSUB4000
1300 A=173
1305 GOSUB4000
1310 A=20
1315 GOSUB4000
1320 A=3
1325 GOSUB4000
1330 A=141
1335 GOSUB4000
1340 A=98:A5=AD
1345 GOSUB4000
1350 A=192
1355 GOSUB4000
1360 A=173
1365 GOSUB4000
1370 A=21
1375 GOSUB4000
1380 A=3
1385 GOSUB4000
1390 A=141
1395 GOSUB4000
1400 PRINTB$;:A=99:A6=AD
1405 GOSUB4000
1410 A=192
1415 GOSUB4000
1420 A=169
1425 GOSUB4000
1430 A=54:A7=AD
1435 GOSUB4000
1440 A=141
1445 GOSUB4000
1450 A=20
1455 GOSUB4000
1460 A=3
1465 GOSUB4000
1470 A=169
1475 GOSUB4000
1480 A=192:A8=AD
1485 GOSUB4000
1490 A=141
1495 GOSUB4000
1500 A=21
1505 GOSUB4000
1510 A=3
1515 GOSUB4000
1520 A=88
1525 GOSUB4000
1530 A=96
1535 GOSUB4000
1540 A=173:POKEA7+DF,FNL(AD):POKEA8+DF,FNH(AD)
1545 GOSUB4000
1550 A=217:A7=AD
1555 GOSUB4000
1560 A=192
1565 GOSUB4000
1570 A=201
1575 GOSUB4000
1580 A=0
1585 GOSUB4000
1590 A=208
1595 GOSUB4000
1600 PRINTB$;:A=76
1605 GOSUB4000
1610 A=173
1615 GOSUB4000
1620 A=219:A8=AD
1625 GOSUB4000
1630 A=192
1635 GOSUB4000
1640 A=201
1645 GOSUB4000
1650 A=0
1655 GOSUB4000
1660 A=208
1665 GOSUB4000
1670 A=32
1675 GOSUB4000
1680 A=165
1685 GOSUB4000
1690 A=198
1695 GOSUB4000
1700 A=201
1705 GOSUB4000
1710 A=0
1715 GOSUB4000
1720 A=208
1725 GOSUB4000
1730 A=23
1735 GOSUB4000
1740 A=32
1745 GOSUB4000
1750 A=202:A9=AD
1755 GOSUB4000
1760 A=192
1765 GOSUB4000
1770 A=201
1775 GOSUB4000
1780 A=0
1785 GOSUB4000
1790 A=240
1795 GOSUB4000
1800 PRINTB$;:A=39
1805 GOSUB4000
1810 A=201
1815 GOSUB4000
1820 A=ASC(C1$)
1825 GOSUB4000
1830 A=240
1835 GOSUB4000
1840 A=73
1845 GOSUB4000
1850 A=201
1855 GOSUB4000
1860 A=ASC(C2$)
1865 GOSUB4000
1870 A=240
1875 GOSUB4000
1880 A=25
1885 GOSUB4000
1890 A=141
1895 GOSUB4000
1900 A=119
1905 GOSUB4000
1910 A=2
1915 GOSUB4000
1920 A=230
1925 GOSUB4000
1930 A=198
1935 GOSUB4000
1940 A=32:AE=AD
1945 GOSUB4000
1950 A=206:AA=AD
1955 GOSUB4000
1960 A=192
1965 GOSUB4000
1970 A=76:POKEA5+DF,FNL(AD+1):POKEA5+1+DF,FNH(AD+1):A5=AD
1975 GOSUB4000
1980 A=49
1985 GOSUB4000
1990 A=234:POKEA6+DF,FNL(AD):POKEA6+1+DF,FNH(AD)
1995 GOSUB4000
2000 PRINTB$;:A=165
2005 GOSUB4000
2010 A=197
2015 GOSUB4000
2020 A=201
2025 GOSUB4000
2030 A=1
2035 GOSUB4000
2040 A=208
2045 GOSUB4000
2050 A=247
2055 GOSUB4000
2060 A=169
2065 GOSUB4000
2070 A=0
2075 GOSUB4000
2080 A=141
2085 GOSUB4000
2090 A=219:AB=AD
2095 GOSUB4000
2100 A=192
2105 GOSUB4000
2110 A=76
2115 GOSUB4000
2120 A=FNL(A5)
2125 GOSUB4000
2130 A=FNH(A5)
2135 GOSUB4000
2140 A=238
2145 GOSUB4000
2150 A=219:AC=AD
2155 GOSUB4000
2160 A=192
2165 GOSUB4000
2170 A=76
2175 GOSUB4000
2180 A=FNL(AE)
2185 GOSUB4000
2190 A=FNH(AE)
2195 GOSUB4000
2200 PRINTB$;:A=120
2205 GOSUB4000
2210 A=173
2215 GOSUB4000
2220 A=FNL(A5+1)
2225 GOSUB4000
2230 A=FNH(A5+1)
2235 GOSUB4000
2240 A=141
2245 GOSUB4000
2250 A=20
2255 GOSUB4000
2260 A=3
2265 GOSUB4000
2270 A=173
2275 GOSUB4000
2280 A=FNL(A5+2)
2285 GOSUB4000
2290 A=FNH(A5+2)
2295 GOSUB4000
2300 A=141
2305 GOSUB4000
2310 A=21
2315 GOSUB4000
2320 A=3
2325 GOSUB4000
2330 A=88
2335 GOSUB4000
2340 A=76
2345 GOSUB4000
2350 A=FNL(A5)
2355 GOSUB4000
2360 A=FNH(A5)
2365 GOSUB4000
2370 A=238
2375 GOSUB4000
2380 A=218:AF=AD
2385 GOSUB4000
2390 A=192
2395 GOSUB4000
2400 PRINTB$;:A=173
2405 GOSUB4000
2410 A=218:AG=AD
2415 GOSUB4000
2420 A=192
2425 GOSUB4000
2430 A=201
2435 GOSUB4000
2440 A=60
2445 GOSUB4000
2450 A=208
2455 GOSUB4000
2460 A=8
2465 GOSUB4000
2470 A=169
2475 GOSUB4000
2480 A=0
2485 GOSUB4000
2490 A=141
2495 GOSUB4000
2500 A=218:AH=AD
2505 GOSUB4000
2510 A=192
2515 GOSUB4000
2520 A=206
2525 GOSUB4000
2530 A=217:AJ=AD
2535 GOSUB4000
2540 A=192
2545 GOSUB4000
2550 A=76
2555 GOSUB4000
2560 A=FNL(A5)
2565 GOSUB4000
2570 A=FNH(A5)
2575 GOSUB4000
2580 A=32
2585 GOSUB4000
2590 A=180:AK=AD
2595 GOSUB4000
2600 PRINTB$;:A=192
2605 GOSUB4000
2610 A=10
2615 GOSUB4000
2620 A=10
2625 GOSUB4000
2630 A=10
2635 GOSUB4000
2640 A=10
2645 GOSUB4000
2650 A=141
2655 GOSUB4000
2660 A=217:AL=AD
2665 GOSUB4000
2670 A=192
2675 GOSUB4000
2680 A=32
2685 GOSUB4000
2690 A=180:AM=AD
2695 GOSUB4000
2700 A=192
2705 GOSUB4000
2710 A=13
2715 GOSUB4000
2720 A=217:AN=AD
2725 GOSUB4000
2730 A=192
2735 GOSUB4000
2740 A=141
2745 GOSUB4000
2750 A=217:AP=AD
2755 GOSUB4000
2760 A=192
2765 GOSUB4000
2770 A=76
2775 GOSUB4000
2780 A=FNL(AE)
2785 GOSUB4000
2790 A=FNH(AE)
2795 GOSUB4000
2800 PRINTB$;:A=32:POKEAK+DF,FNL(AD):POKEAK+1+DF,FNH(AD)
2801 POKEAM+DF,FNL(AD):POKEAM+1+DF,FNH(AD)
2805 GOSUB4000
2810 A=206:AK=AD
2815 GOSUB4000
2820 A=192
2825 GOSUB4000
2830 A=32
2835 GOSUB4000
2840 A=202:AM=AD
2845 GOSUB4000
2850 A=192
2855 GOSUB4000
2860 A=162
2865 GOSUB4000
2870 A=0
2875 GOSUB4000
2880 A=221
2885 GOSUB4000
2890 A=220:AQ=AD
2895 GOSUB4000
2900 A=192
2905 GOSUB4000
2910 A=240
2915 GOSUB4000
2920 A=7
2925 GOSUB4000
2930 A=232
2935 GOSUB4000
2940 A=224
2945 GOSUB4000
2950 A=16
2955 GOSUB4000
2960 A=208
2965 GOSUB4000
2970 A=246
2975 GOSUB4000
2980 A=162
2985 GOSUB4000
2990 A=0
2995 GOSUB4000
3000 PRINTB$;:A=138
3005 GOSUB4000
3010 A=96
3015 GOSUB4000
3020 A=173:POKEA9+DF,FNL(AD):POKEA9+1+DF,FNH(AD)
3021 POKEAM+DF,FNL(AD):POKEAM+1+DF,FNH(AD)
3025 AM=AD:GOSUB4000
3030 A=FNL(SA+256):POKEA0+DF,FNL(AD):POKEA0+1+DF,FNH(AD)
3035 GOSUB4000
3040 A=FNH(SA+256):POKEA1+DF,FNL(AD):POKEA1+1+DF,FNH(AD)
3045 GOSUB4000
3050 A=96
3055 GOSUB4000
3060 A=238:POKEAA+DF,FNL(AD):POKEAA+1+DF,FNH(AD)
3061 POKEAK+DF,FNL(AD):POKEAK+1+DF,FNH(AD)
3065 GOSUB4000
3070 A=FNL(AM+1)
3075 GOSUB4000
3080 A=FNH(AM+1)
3085 GOSUB4000
3090 A=208
3095 GOSUB4000
3100 A=5
3105 GOSUB4000
3110 A=238
3115 GOSUB4000
3120 A=FNL(AM+2)
3125 GOSUB4000
3130 A=FNH(AM+2)
3135 GOSUB4000
3140 A=240
3145 GOSUB4000
3150 A=160
3155 GOSUB4000
3160 A=96
3165 GOSUB4000
3170 A=0:POKEA2+DF,FNL(AD):POKEA2+1+DF,FNH(AD)
3171 POKEA7+DF,FNL(AD):POKEA7+1+DF,FNH(AD)
3172 POKEAJ+DF,FNL(AD):POKEAJ+1+DF,FNH(AD)
3173 POKEAL+DF,FNL(AD):POKEAL+1+DF,FNH(AD)
3174 POKEAN+DF,FNL(AD):POKEAN+1+DF,FNH(AD)
3175 POKEAP+DF,FNL(AD):POKEAP+1+DF,FNH(AD)
3176 GOSUB4000
3180 A=0:POKEA3+DF,FNL(AD):POKEA3+1+DF,FNH(AD)
3181 POKEAF+DF,FNL(AD):POKEAF+1+DF,FNH(AD)
3182 POKEAG+DF,FNL(AD):POKEAG+1+DF,FNH(AD)
3183 POKEAH+DF,FNL(AD):POKEAH+1+DF,FNH(AD)
3185 GOSUB4000
3190 A=0:POKEA4+DF,FNL(AD):POKEA4+1+DF,FNH(AD)
3191 POKEA8+DF,FNL(AD):POKEA8+1+DF,FNH(AD)
3192 POKEAB+DF,FNL(AD):POKEAB+1+DF,FNH(AD)
3193 POKEAC+DF,FNL(AD):POKEAC+1+DF,FNH(AD)
3195 GOSUB4000
3200 PRINTB$;:A=48:POKEAQ+DF,FNL(AD):POKEAQ+1+DF,FNH(AD)
3205 GOSUB4000
3210 A=49
3215 GOSUB4000
3220 A=50
3225 GOSUB4000
3230 A=51
3235 GOSUB4000
3240 A=52
3245 GOSUB4000
3250 A=53
3255 GOSUB4000
3260 A=54
3265 GOSUB4000
3270 A=55
3275 GOSUB4000
3280 A=56
3285 GOSUB4000
3290 A=57
3295 GOSUB4000
3300 A=65
3305 GOSUB4000
3310 A=66
3315 GOSUB4000
3320 A=67
3325 GOSUB4000
3330 A=68
3335 GOSUB4000
3340 A=69
3345 GOSUB4000
3350 A=70
3355 GOSUB4000
3360 A=0
3365 FORJ=1TO20:GOSUB4000:NEXT
3370 PRINTB$;:RETURN
4000 POKEAD+DF,A:AD=AD+1:RETURN
5000 POKE53280,0:POKE53281,0:POKE53265,11:PRINTCHR$(14)"[147]";
5001 PRINT"[146]  [159][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
5002 PRINT"  [154]          star[160]batch[160]creator         "
5003 PRINT"  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
5004 PRINT"  - BY [203]EN [210]OBINSON    1998 [202]&[198] [208]UBL. -":RETURN
5005 PRINT"  [155][195]NTL-A WHEN FINISHED."
5006 PRINT"  [195]NTL-B TO CHECK BYTES FREE."
5007 PRINT"  [195]NTL-C TO CANCEL/QUIT/[204]OADSTAR."
5008 PRINT"  cNTL-D TO DELETE ENTIRE LINE."
5009 PRINT"  [195]NTL-F TO DELETE/REDO PREVIOUS LINE."
5010 PRINT"  [195]NTL-L TO LINK WITH NEXT LINE."
5011 RETURN
30000 A$="B.STAR BATCH"
30010 CLOSE15:OPEN15,8,15:IFSTTHENCLOSE15:STOP
30015 PRINT#15,"S0:"+A$+"BU"
30020 PRINT#15,"R0:"+A$+"BU="+A$:CLOSE15
30030 SAVEA$,8:VERIFYA$,8:END
38000 IFSA<PEEK(50)*256+PEEK(49)THEN39000
38010 PRINT"[155][197]XECUTE BATCH FILE NOW? (Y/N) ";
38020 POKE198,0
38030 GETA$:IFA$<>"Y"ANDA$<>"N"THEN38030
38040 PRINTA$:IFA$="N"THEN39000
38050 GOSUB5000:POKE53265,27:PRINT"[201]NSTALLING BATCH FILE...."
38060 FORX=S3+1TO49152STEP-1
38070 POKEX-DF,PEEK(X)
38080 NEXT
38090 POKE53280,14:POKE53281,6:PRINT"[147][154]	";CHR$(142);
38100 SYSSA:END
39000 GOSUB5000:POKE53265,27:PRINT" 1) [155][210]ESTART [211]TAR [194]ATCH"
39010 PRINT" 2) [155][209]UIT TO [204]OADSTAR"
39020 PRINT" 3) [155][209]UIT TO BASIC"
39030 POKE198,0
39040 GETA$:IFA$<"1"ORA$>"3"THEN39040
39050 IFA$="1"THENRUN
39060 IFA$="3"THEN40020
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]	":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END